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ABSTRACT 

Since the price of personal computers is coming down, it 
is possible to have computers in a small ship that has a 
limited budget. The commanding officer of a small ship 
needs a support systems for making decisions in amphibious 
operations. A personal computer would be helpful in saving 
time manipulating the information used to make decisions in 
amphibious operations. 

The area to be investigated is the approach to the sys- 
tems analysis and design of the amphibious operation cont- 
roller and simulation program in ship- to-shore phase. We use 
the computer to control the waves of small boats that carry 
rhe troops to shore. 
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I. introduction 



A. AMPHIBIOUS OPERATIONS 

In World War II, at Normandy on of the French coast, 
132,715 troops were landed in sixteen hours on 6 June 1944 
against seme of the most sophisticated shore defences then 
known. At Okinawa, an island about 630 miles south of Japan, 
over 183,000 men in 1,300 vessels made the last a succession 

9 

of major landings by United State amphibious force against 
determined Japanese defenders in April 1945. 

1 . G ene ral 

Amphibious warfare integrates virtually all types of 
shins, aircraft, weapons and landing forces in a concerted 
military effort against a hostile force. The salient require- 
ment of the amphibious operation is the necessity of build- 
ing up combat power ashore from an initial zero capability 
to fully coordinated striking power as the attack drives to- 
ward the final objectives. The amphibious assault must be 
conducted in the face of certain additional difficulties. 
Natural forces such as unfavorable weather, seas, surf, and 
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features of hydrography represent hazards not normally en- 
countered in land warfare. Technical problems of logistics 
include loading thousands of troops and large quantities of 
material into ships at widely separated embarkation points, 
moving them to the objective, and then landing them in ex- 
actly the proper sequence. Usually on open beaches or land- 
ing zones and under fire initially. All this requires ex- 
traordinary attention in the form of detailed planning. 
During the movement from sh ip-t o-shor s, troops are especial- 
ly vulnerable. Possible employment of mass destruction weap- 
ons by the enemy is a threat to the amphibious task force, 
as to any other offensive concentration and requires the 
exercise of effective countermeasures, both active and 
passive, during the stages of the operation. 

2. Definition and Characteristics 

An amphibious operation is an attack launched from 
the sea by naval and landing forces embarked in ship or 
craft involving a landing on a hostile shore. It normally 
requires extensive air participation and is characterized by 
closely integrated efforts of forces, trained, organized and 
equiped for different combatant function. 
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conducted primarily to 



3 . P urpose 



Amphibious operations are 
establish a landing force on a hostile shore in order to; 

(1) Prosecute further combat operations 

(2) Obtain a site for an advanced naval or airbase; 



and 



enemy 



(3) Deny the use o f an area of facilities to the 



4 . Seq uenc e 

The amphibious assault follows a well defined pat- 
tern. It includes a sequence of events or activities, which 
occur, although to a lesser degree, in other types of amphi- 
bious operations. The general sequnce consists of planning 
embarkation, rehearsal, movement to the objective, and fi- 
nally assault and capture of the objective. Planning, for 
example, occurs throughout the entire operation but is 
dominant only in the period prior to embarkation. 



5 . P lannin g 

The planning phase denotes the period extending from 
the insurance of the initiating directive to embarkation. 
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During this phase, the necessary preparatory measures, in- 
cluding coordinate planning are effected. Although planning 
does not cease with the termination of this phase, it is 
useful to distinguish between the planning phase and the 
subsequent operational phase, since a marked change occurs 
in the relationship between the commanders of the various 
service components at the time the planning phase is termi- 
nated and the operational phases begin. At the commencement 
of the operational phases, the commander of the amphibious 
task force assumes full responsibility for the entire force 
and for the operation. 



6 . 2 mbarka t ion 

The embarkation phase is the period during which the 
forces, with the equipment and supplies, embark in assigned 
shipping. 



7, 3§!i“££§al 

The rehearsal phase is the period during which the 
prospective operation is rehearsed for the purpose of: 

(1). Testing the adequacy of plans, timing of de- 
tailed operations, and the combat-readiness of participating 
forces; 
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(2) . ensuring that all echelons are familiar with 
plans; and 

(3) . testing communications. 

8 . M ovemen t 

In this chase, the components of the amphibious task 
force move from the points of embarkation to the objective 
area. This move may be via rehearsal, staging, and/cr ren- 
dezvous areas. The movement phase is completed when the 
components of the amphibious task force arrive in their 
assigned position in the objective area. 



9 . A ssau lt 

The assault comprises the period between the arrival 
of the major assault forces of the amphibious task force in 
the objective area and the accomplishment of the amphibious 
task force mission. Development of the area for its ultimate 
use may be initiated during this period. 

1 0. Ass a ult O pera tion 

Assault operations by the landing force begin with 
the snip- 1 o-sho re movement and the landing of the first 
schedule wave, and terminate with the capture of the final 
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ground objectives of the landing force. Other forces contin- 
ue to provide logistic and fire support during the assault 
operation of the landing force and continue to provide 
over-all protection of the amphibious task force. 

B. SHIP-TO-SHORE MOVEMENT 

1 . G eneral 

a. The ship-to-shore movement is that part of the 
assault phase which pertains to the timely deployment of 
troops and their equipment from assault shipping to desig- 
nated positions ashore in the landing area. More precisely, 
this movement is designed to ensure the landing of troops, 
equipment, and supplies at the prescribed times and places 
and in the information required by the landing forces’ plan 
of maneuver for operations ashore. The movement may be exe- 
cuted by waterbrone means ( landing ship, landing craft, and 
amphibious vihicles) , by helicopters, or by a combination of 
the two. 

b. Although the ship-to-shore movement is only a 
part of the assault phase, it is the most critical part. Th<=> 
achievement of the requisite coordination and control of the 
many diversified naval and troop elements participating in 
the ship-to-shore movement imposes tasks which are un- 
paralleled in scope by anyother military operation in 
modern warfare. Ship-to-shore movement planning reflects 
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to a preeminent degree the requirement for concurrent and 
parallel planning at all naval and troop echelons. The land- 
ing plan, consisting of a variety of documents, must leave 
no doubt as to what is intended. Whereas, generally in mili- 
tary operations, subbcrdinate commmanders are only told what 
to do, there is, in the ship- to shore movement and equally 
compelling requirement to spell out many of the details 
concernr.ing how the operation will be accomplished. 

c. The ship-to-shore movement may encompass any or 
all of the following operations: 

(D Assembly of landing ship, landing craft, amphi- 
bious vehicles and helicopters in required formation for 
debarkation and landing. 

(2) Debarkation of troops, equipment, and supplies 
from ship into appropriate ship-to-shora movement means; 

(3) Transfer operations 

an d, 

(4) Controlled landing of the assault echelons of 
the landing force to includes equipment and supplies. 

d. The shi?-to-shore movement commences on order of 
the amphibious task force commander after consultation with 
the landing force commander. The movement is brought to a 
close when all of the troops, equipment, and supplies loaded 
in assault shipping have landed. 

e. The ship-to-shore movement is divided into two 

periods. 



is 



(1) The initial unloading period which is primarily 
‘tactical in character with emphasis on responsiveness to 
landing force requirements ashore. It is during this period 
of the ship-to-shore movement that the landing force is 
graining its foothold ashore, and the unloading and landing 
of essential men, equipment, and supplies is very selective. 

(2) The general unloading period, which is primarily 
logistical in character, emphasizes to the delivery of quan- 
tify in the shortest time possible. Although the aim shifts 
to volume and speed rather then selectivity, the unloading 
and landing operation should never exceed the capability of 
logistic operations ashore to handle that which is 
del iverea. 



C. CONTROL OF S HIP-TO-SHOR 2 MOVEMENT 

1 . G eneral 

Control of the ship-to-shore movement directly or 
indirectly, involves the organization of the sea area, the 
establishment of a number of control agencies, and the em- 
ployment of various control techniques and devices. The num- 
ber and arrangement of beaches and the corresponding types 
of movement also play a part in the control system to be 
established for a particular operation. 
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2 . 



Area Organization for Control Land ing 

For a discussion of the organ izaticm of the sea area 
in its entirety. Organization of the sea operation area 
close to the shore for execution of the ship-to-shore move- 
ment involves certain coordination and control devices as 
discussed below. 

(1) The line of departure is an off-shore coordi- 
nating line, approximately parallel to the landing beach, 
from which the successive waves of boats are dispatched for 
their final movement to the beach. If beaches are separated, 
each beach has its own line of departure, which is marked by 
a ship or ships cf the control organization. The location of 
the line of departure is governed by topographic, 
hydrographic, and tactical considerations. 

(2) Boat lanes extend seaward from landing beaches 
of the line of departure. The width of the boat lanes is 
determined by the length of the ccresponding beaches. 

(3) Approach lanes are extensions of boat lanes 
from the line of departure toward the transport ares. They 
may be terminated by marker ships, boats, or bouys. Adjacent 
approach lanes may be parallel or may diverge to seaward to 
provide for early dispersion of the waves of beats. 

(4) A floating dump area is an off-shore area in 
which are stationed a designated number of landing craft or 
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amphibious vehicles, loaded with supplies to meet early de- 
mands of the troops ashore. A floating dump area should be 
located in the vicinity of the line of departure, with due 
regard for adequate dispersion and ease in control. 

(5) Special unloading berths into which transports 
may move for unloading are established in the vicinity of 
the approach lanes. This result in reduction of the running 
time of landing craft and amphibious vehicles and assists in 
the dispersion of transports. 

(6) A casualty e vacation control berth is estab- 
lished for a ship which may be specially equiped for han- 
dling casualties. Usually this is a landing ship in which a 
casualty evacuation control officer is embarked. Normally 
one berth is allotted to each beach. A berth is established 
to serve one or more landing beaches, depending upon the 
proximity of landing beaches, and is located as close to the 
beach as condition permit. 

(7) The transfer area is a designated ares to sea- 
ward of the surf line, off a landing beach, where personnel 
and material are trasfered from landing craft to amphibious 
vehicles. It is established when rroop plans, terrain, or 
hydrographic condition dictate. 

(8) A transfer berth is located off a landing beach 
in the proximity of the transfer lane. A crane-equipped ship 
or a barge is stationed hare to transfer troops, suplies, 
and equipment from landing craft no amphibious vehicles. 
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(9) The amphibious vehicle launching area is a de- 
signated area located in the near vicinity and to seaward of 
the line of departure. The ships carrying amphibious vehi- 
cles move into this area to unloaded them. The area is so 
located in relation to the line of departure as to ensure a 
minimum amount of maneuver and sea area transits by the 
amphibious vehicles prior to crossing the line of departure. 

(10) The causeway lanching area is an area located 
near the line of departure but normally clear of the ap- 
proach lanes, where ships can launch pontoon causeways. This 
area is so located that the causeway can be launched in a 
minimum amount of time and with least interference from oth- 
er unit operating in the immediate area. Causeways are lo- 
cated adjacent tc but not in boat lanes, usually toward the 
flank of the beach. 
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II. SYSTEM SURVEY 



A. AMPHIBIOUS OPERATION 

The purpose of this study is to simulate the control of 
amphibious operation in the ship-to- shore-movement phase. 
The problem is hew to get the landing force to the shore on 
time. The time here is defined in term of D-Day, H-Hour, M- 
Minute, which means that at the date of D-Day the time of 
H-Hour and M-Hinute, the landing force will do the amphibi- 
ous operation. They reach the shore by that time, not before 
or after. In order that landing groups reach the shore on 
time, the course and speed of the landing groups have been 
previously defined. Usually, the course is perpendicular to 
the shore and the speed is usually 70/5-80% of the maximum 
speed of the landing craft. The landing groups are parts of 
the whole landing force. The landing groups are also divided 
into waves when landing which are controlled by wave guide 
commander. Those wave guide commanders are controlled by the 
control ship. Since the control ship may be destroyed at any 
time. It is therefore, reasonable to have 2 control ships 
called the Primary Control Ship (PCS) and the Secondary Con- 
trol Ship (SCS) both ships can keep track of the movement of 
Wave Guide Commander (WGC) , but the Primary Control Ship 
(PCS) controls the Wave Guide Commander (WGC). If the 
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Primary Control Ship (PCS) is destroyed, the Secondary Con- 
trol Ship will take over the control. The Primary Control 
Ship (PCS) and Seconary Control Ship are usually anchored 
2,000 yards away from the shore at the other side of the 
boat lanes. The boat lanes are the path of the waves. The 
width of the lanes is about 400 yards the course is the wave 
course and the length is the distance between the shore and 
control ships, usually 2,000 yards. The line drawn between 
the Primary Control Ship (PCS) and Seconary Control Ship 
would be across the boat lane and parallel to the shore. 
This line is called Line of Departure (LoD) . 3y using the 
wave's speed, we can compute the time the wave was at the 
Line of Departure (LoD). 



TIME TIME 

1230 1236 

6 MINUTES 



SPEED 10 KNOTS 



2000 YARDS 



Figure 2.1 Compute time 
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For example, if the boat’s lane's length = 2,000 yards wave 
speed = 10 knots, H-Hour = 12, M-Minute =30. It would take 
2000*60/(10*2000) = 6 minutes (1 mile = 2,000 yards) for the 
wave to reach the shore. Therefore, that the time to pass 
Line of Departure (LoD) would be 12:24. 

Five minutes before the time to pass Line of Departure 
(LoD), the Primary Control Ship (PCS) raises a Zero flag in 
order for the waves to proceed to the Line of Departure 
(LoD) . At the time to pass Line of Departure (LoD) or 
12:24, as the example above, the Primary Control Ship (PCS) 
haults down the flag while the waves forward to the shore it 
will report the grid position every minute. The grid posi- 
tion is based on whether the Wave Guide Commander (WGC) is 
in the middle left or right side of the boat lane. We divide 
the boar lane into 5 regions. Hence the boat lane that is 
400 yards wide, 0- 50 yards from left is labeled "LL", 

50-100 yards from left is labeled "L", 100- 200 from left is 

labeled n C", 0-50 from right is labeled "RR", 50-100 from 

right is labeled "R" . The report includes whether rhe Wave 
Guide Commander (WGC) is early , late, or on time. If it is 
early, the wave should decrease rhe speed. When the waves 
reach the shore the Wave Guide Commander (WGC) will report 
to the Primary Control Ship (PCS) "touch down" ar. which time 
the Primary Control Ship (PCS) will no longer control the 
wave. 



22 



B. SYSTEM DESIGN 



According to the characteristic of computer used in this 
study, we have to built our own characters when we use the 
high resolution mode. The characters have been previously 
designed. Each character occupies 5 bytes of memory. From 
the program listing, each of the data statements contains 
the data for one character. The line number of the statement 
minus 2,200 is the ASCII code value for the character. Each 
character is defined by 5*7 array of points. Each point in 
the array is translated into the paper bit pattern, and the 
resulting numbers are placed in the data statement. The 
data -are then stored in memory from location 31647 by 
subroutine SET CHARACTER. 

1 • Subroutine Print Th ara: t er 

This routine is used to print the character at the posi- 
tion ZZ, ZY where ZX is 256 horizontal does on the screen 
when this routine is called. ZZS is the passing parameter, 
ZZ$ is the character we want to be printed. The function 
ASC (ZZS) will return ASCII value to ZC. The statement ZZ = 
ZC*5+31647 will assign the table pointer value to ZL. ZQ is 
the variable pointer of an array A. This allows the charac- 
ter data to be stored in variable A. A, then, will be POT 
to a specific location on the screen specified by ZX,ZY. 



2. S ubr outine Pr in t Message 

This routine is used to print a string of characters on 
screen. the first character will be at location specified 
by ZX and ZY. This will be accomplished by moving the conse- 
cutive character into ZZ$ and then call PRINT CHARACTER 
routine. 



/ 

3. S ubrout ine Numeric Input 

This routine work like INPUT statement in 3ASIC , but the 
prompt message can be located by ZX and ZY. This routine 
while waiting for the input, will keep on reading the time 
from the real tics clock. It also checks input data, if the 
input data is net numeric (A5CIK48 or >57 in decimal or 
$30-339 in hexadecimal) . 



4* Subroutine Set Character 

This routine reads the character data from the pro- 
gram and place it in the physical memory location from the 
address 31647 tc the address 32125 which is the highest 
location for 32 K computer. 
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5* Subroutine Plot Grid 

This routine is to plot the boat lanes grid on the screen 
by using 10 yards: 1 dot on the screen the first do loop is 
to draw 6 horizontal line which are LL, L, C, R, RR regions. 
The next DO loop draws vertical distance scale from 0 to 
24000 yards for every 200 yards. Label numbers are in hun- 
dred of yards. The sign " " is the location of Primary Con- 
trol Ship (PCS) specified by PX and PY which are the input 
offset values from the INPUT routine. The rest of this rout- 
ine prints all the labels such as "SHORE 11 draws arrow, print 
course etc.. 



6. Su brout i re T im e Sea le 

In order to plot the time scale on boat lanes in every 
minute, we have to know the speed, then convert it to dis- 
tance every minute and then draw a correspond line on the 
screen 

SC = number of dots on the screen (10 yards per dot) 

SC = S?*20 00/(6 0*6 0) yards/sec 
=SP*20Q0 (60* 60) dots/sac 

= S?*2000*20/ (60*60*1 0) dots for every 20 seconds 
A DO loop is used to label the time scale every minute. 
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interacts with the 



7 ♦ S ubrout ine Wave Po s itio n 

This routine is the routine which 
user. We have tc make sure that error will not occur. This 
routine will ask the user tc reinput the data if the data 
fails certain test. This routine will get the input bearing 
and range first. It will get bearing by printing the "?" 
after the word "hearing". The input bearing will be assigned 
to variable B8 first, while loop check if the input bearing 
is between 0 and 360. If it is not, then this routine will 
keep on asking for the input. After the computer gets the 
correct bearing, the "?" will be printed after the word 
"RANGE" the user is supposed to input range of the wave 
guide from the Primary Control Ship (PCS). Again this rout- 
ine will check the user input numeric data. Only after the 
computer gets the correct input. The true bearing will be 
computed by usingthe equation 
WH= (BR-cO) /I 80* 3. 14 1592654 
WX = I NT (PX-RG/10 *COS (WH) ) 

WY = int (PY-rg/| ) *SIN (WH) ) 

To change bearing and range respect to offset no dot 
pcsitier. on the screen. This routine also provides the me- 
chanism that allow us not to plot out off screen edge. For 
the first input a dot (position of wave ) will be picted on 
the screen using the command PR ESEI (W X, WY) (since the screen 
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is usually SET by the command PCLS1 ( . After the first in- 
put, the output position will be lined to the previous one. 
The position is marked by the "<" sign in the SET and PUT 
command. The GET command will get every thing at position. 
The "<" will be printed (the area cover 5*8 dots) and will 
be PUT back latei after the computer compute a new position 
and then GET the data from the new position before printing 
"< M and so on. 



8 . Subroutine Print Time 

This routine is to print Hour minute and second of the 
present time. This routine will be called once after each 
input. Therefore, the time output is latched. 

9. S ubrout ine Read Time 

While waiting for bearing and range to be inputs, this 
routine will be called repeatedly, together with polling 
keyboard in order to update the time variable TH,TM,TS (note 
that the real- 1 ime- clock is still cunning all the time by 
using 1/60 second hardware intsrupt) . 

10. Subroutine Error T able 

This routine only handles error messages. 
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11. Subroutine Err or H and ler 

This routine outputs the error meaasges into error mes- 
sage area on the screen when this routine is called only the 
number of error message is passed. 

12. Subroutine Compute Time Difference 

TU is the time taken to reach the shore at speed SP. 

TU = WX*10*60/ (20 00* SP) 

=WX*. 3/SP 

TP is the planned time in minute, if TP= 4 means by the 
schdule, we have 4 minutes to reach the shore and if TU=2, 
means it would take only 2 minute to reach the shore, if we 
retain the same speed, another word we can say is than we 
are 4-2 =2 minutes earlier than we have planned. This is how 
we can determine if we are early, late, or on time. Hence iz 
takes about 1 or 2 seconds to print a message. If the mes- 
sage is the same as the last time we have printed or. the 
screen, we don't have to put it again on the screen the mes- 
sages will stay latch until we print blanks over chem. To 
handle this we use TT$ to be the value of the last message. 
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13. Subrou t ine Inp ut 

This routine use normal screen (alphanumeric mode) to 
input, in order to minimize the number of statements. This 
routine input H-Hour (HH), M -Minute, time in hour(TH) time in 
minute (TM) , course of wave (CO), speed of wave (SP) and 
also set real-ti me- clock , each of the input is also checked 
for validation. 



14. Subroutine G rid Re port 

This routine use the value of WY (wave position of Y- 
axis) and determine whether the W3C is in which region by 
returning the value of grid "LL", "L" , "C" , "R" ,"RE"to gr$ and 
we use GC3 to store the value of the recommened vector, GG.S 
store the value of the last vector output. If the current 
vector output is the same as the last one, the output will 
not have to be printed again. 



15. Subroutine Ech o In put 

This routine just echoes the input by using the high re- 
solution mods. The inputs echoed are wave speed H-Hour, M- 
Minute, also prompt bearing, range, and display ail labels. 
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16. Subroutine Off set 

This routine get the position of Primary Control 
Ship (PCS) by using the reference position ( the point on the 
left edge of boat lane intersected by the Line of Departure 
(LoD) ) or column 200 row 17 2 on the physical location on the 
screen. PX, ?Y will be the physical location of Primary 
Control Ship (PCS) on the screen. 



17. Subroutine Mast er Control 

This routine just calls the lower level modules and 
prompts the user if he would like to continue. 
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Ill 



a SERI S MANUAL 



A. SPECIFICATION. 

This program is designed to use with TRS 30 Color Compu- 
ter 32 K bytes with Extended 3ASIC system. The program size 
is 11 K bytes and need working area for at least 1 K bytes. 
Since the monitor system occupy 3 K bytes and we use 4 
graphic pages or 6 K bytes. Therefore this system consumes 
26 K (6+8+1+11) cf memory space. The machine that has memory 
less than 32 K bytes is not recommened. 

B. USE OF THE PROGRAfl. 

This program is on the cassette tape which should be 
loaded with the CLQAD"AMPH I" command. When the program is 
already loaded, simply type RUN to run the program, vcu have 
to wait for only a few seconds. You will be prompted for a 
series cf parameters as shown below. 

H-HOUR the hour, time when the landing force 



were at the shore 



SET HOUR 



the Dres ent hour 



M- MINUTE 



the minute, time when the landing force 



were at the shore 



SET HOUR 



the present hour 



SET MINUTE 



the present minute 
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BO ATLANE ' S COURSE the coarse which the wave planed to use 

usually perpendicular to the shore. 

WAVE'S SPEED the speed which the wave planed to move. 

OFFSET BEARING the bearing from the planed PCS. location 

to the real location. 

OFFSET RANGE the range from actual PCS. location to 

therotical location. 

After you have answer all the questions, it will take a 
while to plot the grid and all labels as shown m figure 3. 1 
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Figure 3.1 



1 . 


Echo H- H cur input. 


2. 


Echo wave's speed input. 


3. 


Echo wave's course input. 


4. 


Bearing input area. 


5. 


Range input area. 


6. 


Display time. 


7. 


Control command area. 


8. 


Grid position display area. 


9. 


Distance from shore in hundred of yards. 


10 . 


Wave's direction. 


1 1 . 


Shore. 


12. 


Secondary Control Ship (SCS) . 


13. 


Line of Departure (LoD) . 


14. 


Primary Control Ship (PCS). 


15. 


Time's scale in minute. 


16. 


Error message display area. 


17. 


HR region. 


18. 


R region. 


19. 


C region. 


20. 


L region. 


21. 


LL region. 



After grid is plotted the vertical line will be labeled by 
numeric. On the top of the grid, numbers indicate the dis- 
tance from the shore in hundreds of yards. The Line Of De- 
parture will be at 2,000 yards from the shore or labeled 20. 
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The rendezvous area will be anywhere beyond the 2,000-yard 
line. The label at the bottom is the time scale in minutes 
which corresponds to your input wave's speed. If the wave 
speed were 10 knots, the time required from the Line Of De- 
parture (LOD. ) to the shore would be 6 minutes. When you 

see the "?" after the word "BEARING", then you can input 
bearing in degrees. The maximum input is 360, if you input 
the number larger than that an error message will be dis- 
played. After you have input bearing you will see the "?" 
again, after the word "RANGE"., You may input the range of 
the wave guide from Primary Control Ship (PCS). Usually, we 
can get the bearing and range from RADAR. Within a second 
the screen will display time. The time will stay latched un- 
til you input another bearing and range. You will see the 
position of the wave guide indicated by "<" sign anywhere on 
the boat lanes depends on your inputs, the screen also dis- 
plays the grid position indicated by the letters C,L,LL,R,RR 
which mean that cn the middle, on the left, on the far left, 
on the right, on the far right respectively. For example, if 
the grid position is L, it means you are on the left side of 
boat lanes and a change of course to the right. 

In this case, "VECTOR RIGHT 5" will be displayed as shewn in 
figure 3.2. The computer tells you the vector every time 
you are not at "C" position. If you stay at the far right 
position in "LI" the vecter to be recommenea would be 
"VECTOR LEFT 10) . The computer also tells you whether you 
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Figure 3.2 Simulation and Control Display 



are on time or not. If you are late or early the computer 
will tell you how late or early you are. This message will 



be displayed after 


the grid 


position. For 


example. 


if you 


have 3 manures to 


get to the 


shore and you 


are at 


1 minute 


line, the display 


would be 2 


minutes early. 


you are 


supposed 



to reduce the speed in order to get to the shore exacrly on 
time. After your second bearing and cange inputs, the output 
location of wave guide will be linked to the previous one. 
Therefore you can track rhe movement of the wave, ena- 
bling you to provide betner decision making. 




Figure 3.3 End of Control 



Finally when you reach the shore the computer will its 
play "TOUCH DOWN", the control is complete see figure 3.3 
ana you are now ready to control another wave. 
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C. ERROR MESSAGES SUMMARI 



There are 5 errors produced by the program. 

1. OUT OF SCREEN error means the misposition of wave 
guide which the computer plots. Out of screen eror occurs 
when it is not within the computer's capability to provide 
output on screen. This error may result from the out-of- 
screen boundary data (the horizontal dot position greater 
than 255 or less than 0 or the virtical dot position greater 
than 191 or less than 0) or from wrong inputs, such as the 
range between the wave guide and ?CS is too long or bearing 
is in the wrong direction. 

2. TOO SMALL VALUE results from inputs which are too 
small, eg. when the wave speed is lower than 2 knots or when 
the input which should be positive turned to be negative. 

3. GREATER THAN 360 happens only when dealing with bear- 
ing input. Since bearing can be at its most at 360 degrees, 
if bearing input more than 360 degrees, this error will 
res ult. 

4. TOO LARGE VALUE results from inputs which are too 

large, eg. when we input time more than 23 hours, or 59 

minutes; or when we input range more than 9,999yards. 

5. INVALID INPUT results from wrong types of data, eg. 
alphabetical data is input in place of numerical data. 
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D. CONCLUSION 



The ship-to-shore movement is that portion of the as- 
sault phase which includes the employment of landing forces 
from the assault shipping to designates landing areas. It 
has as its purpose the landing of assault units at the prop- 
er times and places and in the formations required by the 
landing force plan of maneuver ashore. It commences on ord- 
er of the amphibious task force commander and is brought to 
a close when unloading of assault shipping is completed. 

In order to increase the ship-to-shore movement control 
efficiency, including accuracy of rimes and places, computer 
usage in controlling proves to be very benefical. Normally 
ship-to-shore movement control is based on manual plotting. 
This process takes approximately 30 seconds to one minute, 
from the time of receiving input, to the time of plotting 
the wave. The use of computer in control provides needed 
output within less than 5 seconds after the time of data in- 
put and control more boat lanes accurately in a few seconds. 
Additionally, the computer control system may be used in 
other phases of amphibious operation; eg. firing support 
system, rehearsal phase, etc. 

In the near future, hundreds of thousands of lives may 
be saved if computer control system replaces the manual 
amphibious operation. 
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APPENDIX A 



ALGORITHM. 

(This program is to simulate the amphibious operation in 
ship to shore movement phase) 

(varible declaration) 

a$ = string buffer for display 

c$ = numeric input buffer 

gcS = command used for control 

grS = grid report buffer 

q3 = quit command 

sHS = output the word "shore" 

t$ = time report storage 

ft 3 = previous time report output 

22 $ = character of a$ 

bp = offset bearing 

br = bearing wave input 

cl = lenght of c$ 

co = Iain's course 

em = error message location 

fg = flag of position plot 

g = varible grid plot 

hh = h-hour 

i = loop counter 

j = loop counter 
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k = loop counter 

1 = length of a$ 

mm = m- minute 

ph = direction in degree 

px = hcrizontol axis of pc s. 

py = vertical axis of pcs. 

qq = quit flag 

rg = range from wave guide 

rn = offset range 

sc = time scale 

sp = speed of wave guide 

tc = difference of wave time and predicted time 

tp = predicted time 

th = time in hour 

tm = time in minute 

ts - time in second 

tu = actual xime of wave 

vx = previous horizontal axis of wave 

vy = previous vertical axis of wave 

wh = relative bearing of wave in degree 

wx = horizontal axis of wave location 

wy = vertical axis of wave location 

xv = numeric input from key board 

z4 = character width 

z7 = character high 

z9 = character gap 

z9 = line gap 
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zc = character data 

zl = data pointer to read character 

zg = varible pointer of array "a” 

zx = horizontal location of alphanumeric output 

zy = vertical location of alphanumeric output 



41 



master control program 
call set characters 



call error table 
q$ = »» 

do while q$ O "q" 
call input data 
call offset 
call echo input 
call set time scale 
call plot grid 
do while qq <> 1 

call wave positio 
call print time 
call compute time 
call grid report 
end do 
input q$ 
end do 

end master control 



n 



dif f eren 
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subroutine offset 



input "the offset of primary control ship from reference 
point in bearing" ; bp 
do while bp > 360 
print er$(3) 

input "the offset of primary control ship from 
reference point in bearing" ; bp 

end do 

do while bp<0 

print er$(2) 

input "the offset of primary control ship from 
reference point in bearing" ;bp 

end do 

input "range from reference point"; rn 
ph = int (bp-co) /130*3. 1 41592654 
px = int (200-rn/10*cos ( ph) ) 
py = int ( 172 -rn/1 0*s in ( ph) ) 

do while px > 255 or px < 0 or py > 191 or py < 72 
input "range from reference point";rn 
print er 3 (1) 

?h = int (bp-co) / 1 30* 3. 14 1 592 654 
px = int ( 200-rn/1 Q*r os (ph) ) 
py = int ( 172-rn/l 0*s in (ph) ) 
end do 
return 
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subroutine echo input 

(set screen to graphic mode) 

zx=0 

zy=0 

a$="wave , s speed is" * strS(sp) ♦ " wave's course 
str $ ( co) 

call print_ mess age (zx, zy , a3) 
zx = 0 
zy = 9 

a3 = "h-hour is" + str$(hh) + + strS(mm) 

call print_ message ( zx, zy ,a 3) 
zx=36 
zy= 1 8 

aS=" bearing " 

call print_ message ( zx, zy ,a 3) 

zx = 36 

zy=27 

aS="range" 

call print_message (zx, zy,a3) 

zx=36 

zy=36 

a3=" time" 

call print_message (zx, zy,a3) 
zx = 36 
zy = 45 

a$ = "grid position is" 
call print_ message (zx, zy ,a 3) 



is" ♦ 
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zx = 114 
zy = 18 

a$ = "degrees" 

call print_ message (zx, zy,a$) 
zx = 114 
zy = 27 
a$ = "yards" 

call print_message ( zx, zy ,a 3) 
return 



subroutine grid report 

if wy < 142 and wy >= 137 then 
gr $ = "r " 

gc$ = "vector left 5 " 

end if 

if wy < 162 and wy >= 142 then 
gr$ = "c " 

gc$ = " » 

end if 

if wy < 167 and wy >= 162 then 
gr 3 = "1 " 

gc3 = "vector right 5 " 

end if 

if wy >= 167 then 
gr S = "11" 



4 ? 



gc$ = "vector right 10" 

end if 

if wy < 137 then 
gr$ = "rr" 

gc$ = "vector left 10 " 

end if 

if wx <=0 then 

gr$ = "touch down" 
zx = 32 
zy = 72 

a$ = "press'g* to quit else continue !" 
call print_ mess age ( zx,zy , aS) 
qq = 1 

end if 
zy = 45 
zx = 138 
a$ = gr$ 

call print_mes sage (zx, zy, a$) 
if gg$ <> gc$ then 
zy = 54 
zx = 36 
a $ = gc $ 

call pr int_message ( zx,zy , a3) 
gg$ = gc$ 
end if 
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subroutine input data 
(clear screen) 
input "h-hour ";hh 
do while hh > 23 
print er$ (4) 
input"h-hcur" ;hh 
end do 

do while hh < 0 
print er$ (2) 
inpuf'h-hour " ;hh 
end do 

input "ai- minute" ;mm 
do while mm >59 
print erl(4) 
input "m -minute" ;mm 
end do 

do while mm < 0 
print er$(2) 
input "m-minute" ;mm 
end do 

input "set hour" ;th 
do while th > 23 
print erS(4) 
input "set hour";th 
end do 

do while th < 0 
print er$(2) 
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input "set hour" ;th 
end do 

input "set minute the realtime clock will 
start after you press <enter>";tm 
do while tm > 59 
print er$<4) 

input "set minute the realtime clock will 
start after you press <enter>";tm 

end do 

do while tm < 0 
print er!(2) 

input "set minute the realtime clock will 
start after you press <enter>";tm 

end do 

timer=0 (sta rt realtime clock) 
input "boat lane's course" ;co 
do while co > 360 
print er $(3) : 

input "bear lane's course" ;co 
end do 

do while co < 0 
print er3(2) 

input "boat lane's course"; co 
end do 

input "wave's speed"; sp 
do while sp < 2 
print er 3 (2) 
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input " wave's speed ";sp 



end do 
return 

subroutine compute time difference 
tu = int (vx*. 3/sp) 
tp = 60* (hh-t h) + (mm-tm) 



if tp = 


60 /sp then 


zx 


= 36 


zy 


= 54 


a$ 


= "zerO flag down" 



call print_message ( zx,zy, a$) 
end if 

if int (t p-60/sp) = 5 then 



ZX 


= 36 


zy 


= 54 


8.3 


= "zero flag up" 


caj 


.1 pr int_message ( zx,zy ,aS) 



end if 



h 

-M 

II 

O 


-tp 


if tc = 


0 then 


aS 


= "you are ontime" 


zy 


= 36 


zx 


= 152 


t$ 


= a$ 



call pr i nt_ message ( zx,zy,a.$) 
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else if tc < 0 then 

t$ = "min. early" 
else 

t$=" m in. late" 
end if 

tc = int (abs (tc) ) 



if tS = 


tt$ then 


zy = 


36 


zx = 


152 


a$ = 


str$ (tc) 



call frint_messa ge (zx, zy , a$) 
end if 

if T$ <> tt $ then 



zy = 


36 


zx » 


152 


a$ = 


strS (tc) *■ tS 



call Erint_messa ge (zx,zy , aS) 
end if 
end if 
tt$ = t$ 
et urn 

ubroutine error handler 
zx = 36 



FO 



zy = 54 



aS = er $ (em) 

call print_message (zx ,zy ,a$) 
re turn 



subroutine 
er$ (1) 
er$ (2) 
er$ (3) 
er$ (4) 
erS (5) 
return 



error table 
= "out of screen " 
= "too small value " 
= "greater than 360" 
= "toe large value " 
= "invalid input " 



subroutine read time 
ts = fix (timer/60) 
if tc <> ts then 
tc = ts 

if ts >= 60 then 
timer - 0 
tm = tm+1 
ts=ts- 60 
er.d if 

if tm >= 60 then 
* h = t h+ 1 
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m = 0 



end if 



if th >= 24 then 
th = 0 
er.d if 
end if 
return 



subroutine print time 

a$ = strS'fth) + strS(ta) + s 
zy = 36 , 

zx = 90 

call print_m essage (zx, z y,a$) 
rex urn 



subroutine wave position 
zx = 78 
zy = 18 
a$ = " ? " 

call print_message (zx, z y, a3) 
zx = 84 

call numeric_input (zx, z y) 
br = xv 

ac while br > 360 or br < 0 
em = 6 

? 2 



tr$ (ts) + " " 



/ 



call er ror_handler (em) 



zx = 


78 


zy = 


18 


aS = 


it ■? i« 

• 



call pr int_message (zx, zy, a$) 
zx = 84 

call nu ireric_input (zx, zy) 



br = 
end do 
zx = 78 
zy = 27 


XV 


a$ = •• ? 


19 


call prini 
zx = 84 


t_m ess age (zx, z y, a$) 


call numei 


:ic_input (zx, z y) 



dc while em = 4 or em = 6 
em = 0 
zx = 7 8 



zy = 


27 


a$ = 


ii ■? it 


call 


pr int_message (zx, zy,a3> 


zx = 


34 


call 
end do 


nu aeric_input; (zx, zy) 


rg = xv 
dc while 


rg < 0 



em = 



5 3 



6 



call er rcr_handlar (em) 
zx = 7 8 



zy = 27 

a$ = " ? " 

call pr int_message (zx, zy , a$) 

zx = 84 

call nu mer ic_input (zx, zy) 
end do 

wh = (br-co)/180*3. 141 592654 
wx = int (px-rg/10*cos ( wh) ) 
wy = ir.t (py-rg/1C*sin ( wh) ) 
if wx < o then 
wx=0 
end if 

if wx > 255 or wy > 19 1 or wy < 0 then 
em= 1 

call err cr_handier ( em) 
return 
end if 

if fg = 0 then 

preset ( wx, wy) 

fg-i 

else if fg = 1 then 

line (wx ,wy) - (vx-vy ) , preset 
put (vx, vy) - (vx+z4, vy+z7) , b, pset 
end if 
vx = wx 
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vy = vy 



get (wx, wy) -(wx+z4, vy* z7) ,b,g 
zx = wx 
zy = wy 
a$ = "<" 

call print_message (zx ,zy, a3) 
return 



subroutine set time's scale 
sc = sp*. 55555*2 '20 sec 
k = 0 

do for i = 0 to 220 step sc 
if k/3-int(k/3) - 0 then 
a$ = str$ (int (k/3)) 
zx = i 
zy = 180 

call pr int_mess age( zx, zy, a$) 
line (i, 1 32) - (i, 176) , preset end if 
line (i, 1 7 2) - (i, 176) , preset 
k = k+1 
next i 
return 



subroutine plor grid 



5 5 



g 



132 



do for i= 1 to 6 

line (0,g) -(255, g) , preset 
g = g+5 

if g = 147 then 
g=162 
end if 
next i 

do for i = 0 to 255 step 20 
line (i,12 8) - (i,172) , preset 
if i <> 0 then 
zx = i-12 
zy = 1 20 

a 3 = s+r3 (int (i/1 0) ) 
call print_messag e (zx, zy, a5) 
end if 
next i 
zx = px 

Zy = py 

c3 = '•#" 

call print_m essage (zx, z y, a3) 
line (0, 128^- (20,80) , preset 
line (20,80)- (20,30) , pee set 
sh$ = "shore” 
zy = 36 

do for i = 1 to 5 



S 6 



zx = 0 



a$ = mid $ (sh $ ,i, 1 ) 

call prin t_message (z x, zy , a$) 

zy = zy+9 



next 


i 


draw 


"bm112, 10 8;c0;e10; d4 ;r 24 ;d 12 ; 1 24 ; d4 ;h1 0" 


zx = 


118 


zy = 


105 


a $ = 


str$ (co ) 


call 


print_m ess age (zx, z y, a$) 


zx = 


60 • 


zy = 


88 



a$ = "ship tc shore simulation" 



call 


prin t_m ess age (zx, z y, a$) 


return 


# 



subrout: 


Lne numeric input 


call 


print_m essage (zx, z y, a3) 'input 


c $ = 


lift 



1 = 1 



A $ = 


inheyS 



if a3 <> chr${13) then 
cl = len ( c$) - 1 
do while a$ = chri(8) 
c3 = 1 eft $ (c$, cl) 
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zx 



z x-6 



A$ = inkeyS 
end do 

do while a$ = UH 
call read_time 
k$ = inkey$ 
end do 

if asc(a$) < 48 or asc(a$) > 57 then 
eat=6 

call er ror_handler (em) 
else 

return 
end if 
c$ = c$+aS 

call prin t_message (zx , zy, a$) 

i = i+1 

if i > 5 then 

em = 4 

call er ror_handlsr (em) 
return 
end if 
end if 
xv = val (cS) 
re turn 
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subroutine set character 



dim a (2) , b(2), er$(6) 

(clear screen) 

print "please wait for loading characters !" 
Z 4 = 4 
z7 = 7 
z 8 = 6 
z9 = 9 

do for zl = 0 to 479 
read zc 

poke 3 164 7+zl , zc 
next zi 



subroutine print message 
1 = Ien(a$) 
do for j = 1 to 1 

zzS = mid 3(a$ , j, 1 ) 

call prin ".character (zx, zy ,z4 , z7 , z8 , zzS) 
next j 
re t u rn 



subroutine print character 
zc = asc(zzS) 
zc = zc-32 
zl = zc*5+3 1 647 
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zq = varptr ( a (0 ) ) 
poke zq, peek(zl) 
poke zq+1, peek(zl+1) 
poke zq+2, peek (zl+2) 
poke zq+3 , peek(zl+3) 
poke zq+U, peek (zl+4) 
put (zx, zy) - ( zx+z4,zy+z7 ) , a, p-set 
zx = zx+z8 
return 
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APPENDIX 3 



PROGRAM LISTING. 



5 rent this program is to simulate the amphibious operation 



T1 


ship- 


to- 


shore-- mo vement phase 


10 


•by 


It. 


Chanch Hongnoi 


15 


’October 4, 1982 


20 


rem 


var 


ible declaration 


25 


• aS 




string buffer for display 


30 


' c $ 


= 


numeric input buffer 


35 


' gc$ 




command used for control 


40 


' gr$ 




grid report buffer 


45 


' gS 




quit command 


50 


’ sH $ 


- 


output the word "shore" 


55 


' t$ 


f = 


rime report storage 


60 


• ttl 


= 


previous time report output 


65 


' zzS 




character of a$ 


70 


' bp 


- 


offset bearing 


75 


’ br 


= 


bearing wave input 


80 


’cl 


= 


lenght of cS 


35 


' CO 


= 


lane’ s course 


90 


' em 


= 


error message pointer 


95 


' 


s 


flag cf position plot 


10 


0 'g 


= 


varible grid plot 


10 5 »hh 


- 


h-Tiou r 
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110 

115 

12 0 

125 

130 

135 

140 

145 

150 

155 

160 

165 

17 0 

175 

160 

185 

ISO 

195 

20 0 

20 5 

210 

21 5 

22 0 

22 5 

23 0 

23 5 

24 0 



i = loop counter 

j = loop counter 

k = loop counter 

1 = length of a$ 

mm - m- minute 

ph = direction in degree 

px = horizcntol axis of pcs. 

py = vertical axis of pcs. 

gq = quit flag 

rg = range from wave guide 

rn = offset range 

sc = time scale 

sp = speed of wave guide 

tc = difference of present time and predicted time 
tp = predicted time 



th 


= time 


in 


hour 


tai 


= time 


in 


minute 


ts 


II 

H* 

a 

CP 


in 


second 


tu 


= present 


time of wave 



vx = previous horizontal axis of wave 
vy = previcus vertical axis of wave 
wh = relative bearing of wave in degree 
wx = horizontal axis of wave location 
wy = vertical axis of wave location 
xv = numeric input from key board 
z4 = character width 
•z7 = character high 
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24 5 

25 0 

25 5 

26 0 

26 5 

27 0 

27 5 

299 

30 0 

301 

30 5 

31 0 

31 5 

320 

32 5 

33 0 

335 

340 

34 5 

35 0 

355 

36 0 

36 5 

37 0 

37 5 



1 2 6 = 


character gap 


*z9 = 


line gap 
# 


• zc = 


character data 


•zl = 


data pointer to read character 


»zq = 


varible pointer of array n a" 


•zx = 


horizontal location of alphanumeric output 


•zy = 


vertical location of alphanumeric output 



i ******************************* ****** ******** 

rem master control program * 

» ********* ************ ********** ************** 



clear 


200, 3 1646 


gcsub 


1900 'set character 


gosub 


1100 'error table 


gosub 


700 'input data 


gosub 


400 'offset 


gosub 


500 'echo input 


gosub 


1500 'set time scale 


gosub 


1600 'plot grid 


gosub 


1300 'wave position 


gcsub 


1245 'print time 


gosub 


900 'compute time difference 


gosub 


600 'grid report 



if qq<>1 then 345 
gS = inkeyS: 
if q$ = "" then 370 
if q$ <> "q " then 320 
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380 stop 



38 5 end 

40 0 1 ********* ************ **** **** ** ************** 

405 rem subroutine offset * 

4 06 *********** *********** ************************ 

410 input "the offset of primary control ship 

reference point in bearing" ; bp 
415 if bp > 360 then 
print er $(3) : 
goto 410 

42 0 if bp < 0 then 

print er$(2) : 
goto 410 

425 input "range from reference point" ;rn 
430 ph = int (b p-co) /180*3. 1 4 1 592654 

43 5 px = int (20 0-rn/10*cos (ph) ) 

440 py = int (17 2-rn/10*sin (ph) ) 

445 if px > 255 or px < 0 or py > 191 or py < 72 then 
print er $(1) : 
goto 425 
45 0 return 

50 0 ******** *** ** 4c******** **** ******************** 

505 rem subroutine echo input * 

506 *********** *********** ********** ************** 



6 4 



from 



51 0 pmoae 4,1: 
screen 1,0: 



pels 1 
51 5 zx=0: 
zy=0 : 

a$=" wave's speed is" ♦ str$(sp) ♦ " wave's course is" + 
str $ (co) : 





gosub 2000 


'print 


message 


52 0 


zx = 0: 








zy = 9 : 








a$ = "h-hour is" 


♦ str $ (hh) 




gosub 2000 


•print 


mess age 


525 


zx=36: 








• • 

ao 

II 

N 








a$="bearing 


«: 






gosub 2000 


; 






zx=36: 








zy=27 : 








a$="rangs" : 








gosub 2000 


'print 


mess age 


53 0 


zx=36 : 








zy=36 : 








ai="time" : 








gosub 2000 


•print 


mess age 


53 5 


zx = 36: 








zy = 45: 








a S = " gr id 


positi 


on is" : 




gosub 2000 


•prir.r 


mess age 


5a o 


zx = 114: 
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zy = 18: 
aS = "degrees" : 
gosub 2000 ’print message 
545 zx = 114: 
zy = 27: 
a$ = "yards": 
gosub 2000 'print message 
550 return 

60 0 1 **** *** ** * ******** *** **** ******* * ** ********** 
60 5 rein subroutine grid report * 

606 ********************** ************************ 
610 if wy < 142 and wy >= 137 then 
grS = "r 



gc$ - "vector left 5 " 

615 if wy < 16 2 and wy >= 142 then 
grS = ”c 

gc3 = " " 

620 if wy < 167 and wy >= 162 then 
grS = "1 ": 



gc$ - "vector right 5 " 



625 if wy >= 167 then 



gr3 = ”11": 



gcS = "vector right 10 " 
630 if wy < 137 then 



gr$ = "rr" : 

gc$ = "vector left 10 " 
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63 5 if wx <=0 then 



gr$ = "touch down": 
zx = 32: 
zy = 72: 

a$ = "press'q' to quit else continue 
gosub 2000 : 
qq = 1 

64 0 zy = 4 5: 
zx = 138: 
aS = gr$: 

gosub 2000 ’print message 

64 5 if gg$ <> gc$ then 
zy = 54 : 
zx = 36: 
a$ = gc$ : 
gosub 20 CO : 
ag S = gc$ 

650 return 

70 5 reu subroutine input 3 at a * 

73 6 I*#***#*#*# ** *##**##** **** ******* Sc##*:********* 

710 els 

715 input"h-hour" ; hh 

72 0 if hh > 24 then 
print er 3 (4) : 
goto 715 
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72 5 if hh < 0 then 



print er$(2) : 
goto 715 

730 input "m-minute" ; mm 
735 if mm > 60 then 
print er S(4) : 
goto 730 

74 0 if mm < 0 then 

print er$(2) : 
goto 730 

74 5 input "set hour";th 

75 0 if th > 24 then 

print er $ (4) : 
goto 745 

75 5 if th < 0 then 

print erl(2) : 
goto 745 

750 input "set minute the realtime clock will start aft 
you press <enter>";tra 

76 5 if tm > 60 then 

print er$ (4) : 
goto 760 
770 if tm<0 then 

print er $ (2) : 
goto 760 
775 timer=0 

730 input "boat lane's course" ;co 
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78 5 

79 0 

79 5 

80 0 

80 5 

90 0 

90 5 

90 6 

91 0 

91 5 

920 

92 5 



if co > 36 0 then 



print er 5(3) : 
goto 780 
if co < 0 then 
print ar 5(2) : 
goto 780 

input "wave's speed" ;sp 
if sp < 2 then 
print er$(2) : 
goto 795 
return 

i ********** ******** *************************** 

rem subroutine compute time difference * 

• *** **** ************** ************ ************ 

tu = int (wx *. 3/sp) 
tp = 6 0* (hh -th) + (mm-tm ) 
if tp = 60/sp then 
zx = 36 : 
zy - 54: 

a$ = "zerO flag down": 
cosub 2 0 00 'print message 
if int (t p-6 0/sp) = 5 then 
zx = 36 : 
zy = 54 : 

2.5 = "zero flag up": 

' print message 
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gosub 20G0 



93 0 tc 



tu-tp 



93 5 


if 


tc = 


0 t hen 






a$ = 


"u are ontime" : 






zy = 


36: 






zx = 


152 : 






t$ = 


a$ : 






gosub 


20 00: 






goto 


96 0 


94 0 


if 


tc < 


0 then 






t$ = 


" min. early " 




else t$= 


" min. late " 


94 5 


tc 


= int (a bs (tc) ) 


950 


4 4T 


t$ = 


ttl then 






zy = 


36 : 






zx = 


152 : 






a$ = 


str $ (t c) : 



gosub 2000 'print message 
955 if T$ <> tt$ then 
zy = 36: 
zx = 152: 

a$ = str3(tc) + t3: 
gosub 20 00 'print message 
96 0 til = t$ 

96 5 return 

10 00 ' ****** ***4* ******** ^s************************ 

1005 rem subordinate error handier * 
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1006 

10 10 

10 15 

1020 

10 25 

1000 

1105 

11 06 

1107 

11 10 

1115 

1120 

11 30 

11 35 

1200 

1205 

1206 

12 10 

12 15 

12 20 

1225 

1230 



I ******** * *********** **** ****** ************** 



zx = 36: 
zy = 54 
a$ = er3(em) 

gosub 2000 'print message 
return 

I ********* ** ****** *** ** ******** ** ************ 

rem subroutine error table * 

• ****** *** ******** *** *********** ************* 



er$ (1) 




"cut of screen 


er 3 (2) 


= 


"too small value 


erS (3) 


= 


"greater than 360 


er$ (4) 




"too large value 


er 3 (5) 


= 


"invalid input 


return 







I ********* *********** **** ****** ************** 

rem subroutine read time * 

i ********* ******** *** ************************ 

ts = fix (t imer/60) 

if tc = ts then 1240 

tc = ts 

if ts >= 6 0 then 
timer = 0: 
tm = t m +1 : 
ts=ts- 6 0 

if tm >= 60 then 
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th = th + 1: 
tm = 0 

1235 if th >=2 4 then 
th * 0 
1240 return 

12 44 1 ** **** *** ** * * **** *** **** ******************** 

1245 rem subroutine print time * 

1246 1 ********* ******** *** **** ****** ************** 

12 50 a$ = strS(th) + strS(tm) ♦ strS (ts) + " " 

1255 zy = 36: 

zx = 90: 

gosub 2000 ’print message 
1260 return 

1300 ********************************************* 
1305 rem subroutine wave position * 

13 06 1 ** **** ** **************************** ****** * * 
1310 zx = 78: 

zy = 18: 
a 3 = " ? ": 

gosub 2000 : 
zx = 84: 
gosub 1815 
13 20 br = xv 

13 25 if br > 36 0 or br < 0 r hen 
am = 6 : 
gosub 1 000 : 
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1330 



1335 



1340 

1345 



1350 

1355 

1360 

1365 

1370 



1375 



qoto 1 3 10 
zx - 78: 
zy = 27 : 
a$ = " ? 

go sub 2000: 
zx = 84 : 
gosub 1815 

if em = 4 cr em = 6 then 
em = 0 : 
qoto 1330 
rg = xv 

if rg < 0 then 
em = 6 : 
qosub 1 000 : 
qoto 13 30 

vh = (br-co) /180*3. 14 1592654 
wx = int (px-rg/10*cos (wh) ) 
wy = int (p y-rg/10*sin (wh) ) 
if wx < o then 
wx=0 

if wx > 25 5 or wy > 191 or wy < 0 then 
em= 1 : 

qosub 1 000 : 
return 

if fg = 0 then 
preset ( wx, wy) : 
fg=1 : 
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goto 1 3 SO 



1380 if fg = 1 then 

line (wx ,wy) - (vx-vy ) , preset 
1385 put (vx, vy ) - (vx+z4, vy+ z7) , b # pset 
1390 vx = wx: 
vy = wy 

13 95 get (wx, wy ) - (w x+z4 , wy* z7) , b ,g 
1400 zx = wx: 

zy = wy: 
a$ = 

gosub 2000 'print message 

14 05 return 

15 00 1 ** **** ** * ** * ******* * **** 

1505 rem subroutine set time's seals * 

15 06 *************************************** #*4=*** 
15 10 sc = sp*. 55555*2 
15 15 k = 0 

1520 for i = 0 to 220 step sc 
15 25 if k/3-int(k/3) = 0 then 

a 3 = szr $ (int (k/3) ) : 
zx = i: 
zy - 180: 
gosub 2000: 

line (i, 1 32) - (i, 176) , preset 
1530 line (i, 172 )- (i, 175 ) , preset 
1535 k = k+1 
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1540 

1545 

1600 

1605 

16 06 

16 10 

16 15 

1620 

1625 

1630 

1635 

1640 

1645 

16 50 

1655 

1660 

1665 

1670 

1675 

1680 



next i 



return 1 

I ********* *********** ******** **************** 

rem subroutine plot grid * 

*************************************** ****** 

g = 132 

for i= : 1 t c 6 

linsi (0 , g) - (255, g) , preset 
g = g+5 

if g = 147 then 

g=1 6 2 

next i 

for i = 0 to 255 step 20 

line (i, 128) - (i, 172 ) , preset 
if i=0 then 1665 
zx = i- 1 2 : 
zy = 120: 

a3 = str $ (int (i /1 0) ) 
qosub 2 000 'print message 
next i 
zx = px: 
zy = py: 
a$ = 

gosub 2000 'print message 
line (0, 123) - (20,80) ,prsset 
line (20, 80)- (20,30) ,p reset 

7 5 



1685 

1690 

1695 

1700 

1705 

17 10 

1715 

1720 

1725 

1730 

1735 

1740 

1300 

1805 

1806 

18 10 

18 15 

18 20 



shS = "shore" 
zy = 36 

for i = 1 to 5 
zx = 0 

a$ = mid$ (sh$ # i, 1) 
qosub 2 000 'print message 
z y = z y +9 
next i 

draw "bm 1 1 2, 1 08;c0 ;e 1 0; d4;r24 ; i 1 2 ; 124 ; d4 ; hi 0" 

zx = 118; 

zy = 105; 

a$ = strJ ( co) : 

gosub 2000 'print message 

zx = 60: 

zy = 88; 

a.$ = "ship to shore simulation": 
gcsub 2000 'print message 
return 

f ** ** ** ** * ** * * *** **** ** ****** *************3 * * * 

rem subroutine numeric input * 

I *********** ********* ******** ** ************** 

gosub 2000 'print message 
cS - "" : 
i= 1 

kS = inkeyS: 

if a S — chr3(13) then 1365 
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1825 
18 30 



1835 

1840 



1845 

1850 

1855 



1860 

1865 

1870 

1900 

1905 

1906 



cl = ien (c3) - 1 
if a$ = chr$(8) then 
c$ = laft$ (c$,cl) : 
i = i- 1 : 
zx = zx -6 : 
goto 18 20 
if a3 = "" then 
gosub 1 200 : 
goto 18 20 

if asc(aS) < 43 or asc(aS) > 57 then 
era =6 : 

gosub 1 000 : 
goto 18 70 
c$ = c$+a3 

gosub 2000 'print message 
i = i + 1 : 
if i > 5 then 
em = 4 : 
gosub 1 000: 
return 
goto 1820 
xv = val(cl) 
return 



zem subroutine set character * 

1 ****** ** * *********** **** ****** ************** 
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19 10 

1915 

1920 

1925 

1930 

19 35 

1940 

1945 

1950 

20 00 

2005 

2006 

20 10 

20 15 

20 20 

2025 

20 30 

2035 

21 00 

21 05 

2106 

21 10 

21 15 



dim a (2) , t(2) , er$(5 ) 

els 

print "please wait for loading characters !" 
z4 = 4: 
z 7 = 7: 
z8 = 6: 
z9 = 9 

for zl = 0 to 479 
read zc 

poke 31647+zl,zc 

next zl 

return 

I ****** ** * **** o$c *** **** ********** ********** 

rem subroutine print message * 

• ******************** ************************ 

1 = len (a 3 ) 
fer j = 1 to 1 

zz 3 = in id3 (a$, j , 1 ) 
gosub 2 100 ‘print character 
next j 
return 

******* ******************* ************** 

rem subroutine print character * 

********** ******** *************** ************ 
zc = asc(zzS) 
zc = zc-32 
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2125 

2130 

2135 

2140 

2145 

21 46 

2150 

21 55 

2200 

22 05 

22 32 

2237 

22 42 

2247 

22 52 

22 57 

2262 

2267 

2272 

2277 

22 82 

22 87 



zl = zc*5+31o47 



zq = varptr (a (0) ) 

poke zq, peek ( zl) : 

poke zq + 1 , peek(zi + t) : 

poke zq+2, peek(zl+2) : 

poke zq *3 , peek(zi+3) : 

poke zq+4, peek(zi+4) 

put (zx, zy) - (zx+z4 , zy* z7) , a , psst 

zx = zx+z8 

i 

return 

rem character data area* 



data 


255, 


255 , 


25 5 


r 2 


55 


, 255 


data 


222, 


247, 


189 


# 2 


55 


, 127 


data 


173, 


107, 


95, 


25 


5, 


255 


data 


173, 


65, 


80, 


86 , 


1 


91 


data 


220, 


23, 


29, 


7, 


12 


7 


data 


57, 


1 87, 


187, 


17 


9, 


159 


data 


186, 


215, 


117 


# 5 


4, 


95 


data 


156, 


238 , 


255 


# 2 


55 


, 255 


data 


238, 


239, 


123 


# 2 


39 


, 191 


data 


190, 


25 1 , 


222 


# 2 


38 


, 255 


data 


218, 


162, 


8, 


171 


9 


127 


data 


254, 


24 6 , 


13# 


23 


9, 


255 
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9 



57, 22 1, 255 



2292 


data 


25 5, 


2297 


data 


25 5, 


23 0 2 


data 


25 5, 


2307 


data 


247, 


23 12 


data 


139, 


23 17 


data 


220, 


2322 


data 


139, 


23 27 


data 


139, 


23 3 2 


data 


238, 


23 37 


data 


3, 19 


23 4 2 


data 


205, 


2347 


data 


7, 18 


2352 


data 


139, 


23 57 


data 


139, 


2362 


data 


25 2, 


2367 


data 


156, 


2372 


data 


238, 


23 77 


data 


255, 


23 8 2 


data 


190, 


2387 


data 


139, 


23 9 2 


data 


139, 


2397 


data 


221, 


24 0 2 


data 


13, 1 


24 07 


data 


139, 


24 12 


data 


13, 1 


24 17 


data 


3, 22 


24 22 


data 


3, 22 



15, 


25 


5, 


255 


255, 


1 


56, 


, 255 


187, 


1 


Ch 

00 


, 255 


163, 


5 


8, 


53 


189, 


2 


38, 


,63 


23, 


1 8 


8, 


3 1 


159, 


5 


8, 


63 


208, 


1 


19, 


r 191 



239, 53, 63 
, 23, 53 , 63 
187, 189 , 255 



23, 


53 


, 63 




15, 


53 


, 63 




24 9 


, 2 


07, 


255 


57, 


22 


1, 2 


55 


251 


, 2 


39, 


191 


240 


, 1 


27, 


255 


233 


, 2 


38, 


255 


221 


, 2 


55, 


127 


37, 


4 2 


, 63 




224, 


57 


, 22 


3 


27, 


33, 


63 




247 


, 1 


86, 


63 


107, 


33 


, 63 





55, 133, 31 

55, 139, 255 



255 

254 

255 

187 

15 2 

24 7 

189 

189 

106 

5, 

222 

7, 

157 

157 

231 

255 

238 

193 

251 

189 

189 

92, 

73, 

158 

73, 

2 , 

2 , 



80 



24 27 


data 


131, 


222, 199 


, 58, 63 


24 32 


data 


115, 


156, 7, 


57, 223, 


24 37 


data 


142, 


247, 189 


, 2 38, 63 


24 4 2 


data 


24 7, 


189, 239 


, 58, 53 


24 47 


data 


115, 


86, 117, 


181, 223 


2452 


data 


123, 


222, 247 


, 1 88, 31 


24 57 


data 


113, 


20, *67, 


57 , 223 


24 6 2 


data 


113, 


148, 199 


, 57, 223 


2467 


data 


3, 1 56, 231, 


56, 31 


24 7 2 


data 


11# 


1 56 , 23, 


189 , 25 5 


24 77 


data 


139, 


156, 229 


, 5 4, 9 5 


24 82 


data 


11# 


156, 21, 


181 , 22 3 


24 87 


data 


139, 


159, 31, 


58, 63 


24 9 2 


data 


6, 24 7, 189, 


239 , 127 


24 97 


data 


115, 


156, 231 


, 53, 63 


25 0 2 


data 


115, 


157, 90, 


239, 127 


2507 


daxa 


115, 


156, 229 


, 17, 223 


25 12 


data 


115, 


171, 186 


, 1 35, 223 


2517 


data 


115, 


171, 189 


, 239,127 


2522 


data 


7, 187, 187, 


188 , 31 


25 27 


data 


141, 


239, 123 


, 222, 63 


2532 


da - a 


123, 


239, 190 


, 251, 223 


2537 


data 


143, 


123, 222 


, 246, 63 


25 4 2 


dci t a 


220, 


65, 189, 


239, 127 


25 47 


data 


254, 


238, 11, 


239, 255 


2552 


data 


206, 


119, 223 


, 2 55, 255 


25 57 


daT. a 


255, 


227, 232 


, 53, 31 



31 



25 


62 


data 


123 


2567 


data 


255, 


25 


72 


data 


24 7 


2577 


data 


255, 


25 


82 


data 


238, 


25 


87 


data 


252, 


25 


92 


data 


123, 


2597 


data 


254, 


26 


02 


data 


255 


26 


07 


data 


123 


26 


12 


data 


158 


26 


17 


data 


255 


26 


22 


data 


255 


26 


27 


data 


255 


26 


32 


data 


25 0 


26 


37 


data 


252 


26 


42 


data 


255 


26 


47 


data 


25 5 


26 


52 


data 


222 


25 


57 


data 


255 


26 


62 


data 


255 


26 


67 


data 


25 5 


26 


72 


data 


255 


25 


77 


data 


251 


26 


82 


data 


25 5 


26 


87 


data 


238 


26 


92 


data 


222 



103 


, 2 


5, 


53 


231 


, 1 


86 


, 63 


199 


, 5 


o. 


95 


224 


» 6 


2, 


63 


29, 


23 


9, 


127 


201 


, 1 


21 


, 209 


147 


, 5 


7, 


223 


61, 


23 


8, 


63 


239 


, 1 


21 


, 209 


179 


, 1 


73 


, 191 


189 


, 2 


38 


, 63 


165 


, 5 


7, 


223 


103 


, 5 


7, 


223 


231 


, 5 


8, 


63 


227, 


37 


t 


23 9 


230 


, 7 


5, 


222 


103 


, 1 


89 


, 255 


248 


, 2 


48 


, 63 


189 


, 2 


35 


, 191 


231 


» 5 


3, 


63 


231 


, 3 


7, 


1 27 


229 


, 4 


2, 


1 91 


93, 


21 


3, 


223 


232 


, 1 


21 


, 209 


221 


, 2 


20 


, 31 


125 


, 2 


39 


, 191 


253 


, 2 


39 


, 127 



210 

226 

164 

226 

183 

152 

222 

255 

191 

218 

24 7 

234 

210 

226 

76, 

152 

210 

224 

193 

220 

220 

220 

221 

156 

193 

247 

247 



82 



26 


97 


data 


190, 


247 ( 


, 221, 


2 38, 


255 


27 


02 


data 


186, 


187, 


, 255, 


2 55, 


255 


27 


07 


data 


0, 0, 


- o. 


0, 0, 
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APPENDIX C 
COMMA ND SUMMARY. 


THE COMMANDS 


USED IN COMPUTER. 


WORD 


PU RPOSE 


AB 5 


Computers absolute value. 


ASC 


Returns ASCII code of first 
character of specified string. 


AT N 

9 


Returns arc tangent in radians 


AUDIO 


Connects or disconnects cassette 
output to T7 speaker. 


CHR$ 


Returns character for ASCII, 
control, or graphics code. 


CIRCLE 


Draws a circle with center at 
point (X,Y) with a radius of r, 
of a specified colour c, with 
height/width ratio (hw| of 0-4 
Circle can begin and end at 
specified point (0-1). 


CLEAR 


Reverses n bytes of string storage 
space. Initializes variables. 
Specifies highest BASIC address. 


CLOAD 


Lead specified program file from 
cassette. If filename is not 
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specified, first file encountered 
is loaded. Filename must be eight 
c haracters/s paces or less. 


CLO ADM 


Loads machine language program 
from cassette. An offset address 
to add the loading address may be 
s pec ified . 


CLOSE 


Closes open file or devices. 


CL S 


Clears display to specified color. 
If color is not specified, green is 
is used. 


COLOR 


Sets forground and background color. 


CO NT 


Continues program execution after 
pressing BREAK or using STOP statement. 


COS 


Returns cosine of angle measured inradians. 


CS AVE 


Saves program on cassette (program 

name must be eight character/ 

spaces or less). For ASCII format, use "A. 71 


CS AV EM 


Writes out a machine-language file. 


DATA 


Stores data in ycur program. Use 
READ to assign this data to variables. 


DEE FN 


Defines numeric function. 


DEED SR 


defines entry point for USR function. 


DEL 


Allows delation of program lines. 
DEL- Delete entire program. 

D EL n Deletes specified line n. 
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DIM 



DEL n- Delates all lines past n. 

DEL -n Deletes all lines up to n. 

DELn-r. Deletes all lines between n and n. 
Dimensions one or mors arrays. 

A 4K system allows only one dimension. 

A 16K allows multi-dimensional arrays. 
DLOADM Loads mac hin e- language program 

at specified baud. 

0 = 300 baud 1 = 1200 baud 

DRAW Draws a line beginning at speci- 

fied starting point of specified 
length of specified color. Will 
also draw to scale, draw blank 

a 

lines, draw non- updated lines and 
execute substrings. If starting 
pcint is nor specified, (128,96) 
or last DRAW position is used. 

EDIT Allows editing of program line. 

nC Changes n number of 
char act ers. 

rE Dele~.es n number of characters. 

1 Allows insertion of new 
charact er . 

H Deletes rest of line and allows 
insert. 

L Lists current line and continues 
edit . 
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nSc Searches for nth occurrence of 





character c. 

X Extends line. 

SHIFT -» Escape from subcommand, 
n SPACE3AR Moves cursor n spaces to righ 
n < Moves cursor n spaces to left. 


END 


Ends program. 


EOF 


Returns FALSS(O) if there is more 
data; TRUE{-1)if no data is in the 
specified file. For cassette files, 
f = -1; for keyboard files, f=0. 


EXEC 


Transfers control to machine- 
language programs at specified 
address. If address is 'omitted, 
control is transferred to address 
set in last CLOADM. 


EX? 


Return natural exponential of 
number (e number) 


Exponent: 


Lai Raises number to specified power 


FIX 


Return truncated value. All 
integers are truncated. 


FOE. .TO 


Creates a loop in program which 


STEP/ 


the computer must repeat from the 


NEXT 


first number to the last number 
you specify. Use step to specify 
hew much to increment the number 
each time through the loop. If 
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you omit STEP one is used. 


GET 


Read the graphic contents of a 
ractangle into an array for 
future use by PUT. 


GO SUB 


Sends the computer to subroutine 
beginning at specified line number. 


GOTO 


Sends the computer to the specified 
line number. 


HE X$ 


Compute hexadecimal value 


IF/THEN 


Test the relationship. If it is 
true, the computer execute the 
instruction following THEN. 


IN KEYS 


Strobe the keyboard and returns 
the key being pressed. 


INPUT 


Cause the co mputer to stop and 
await input from the keyboard 


IN PUT#- 1 


Input data from cassette 


INSTE 


Search for the first occurance 



IN S T E $ (5,X3,Y3) 





of string Y3 in string X3 and 
returns the position at which 
the match is found. 


INT 


Convert a number to an integer. 


JO YSTK 


Returns the horizontal or vertical 
coordinate of the left or right joystick 

0 =horizontal, left joystick 

1 = vertical, right joystick 
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2 = horizontal , right joystick 

3 = vertical. Is ft joystick 


LEFTS 


Return the left potion of the string. 


LEN 


Setuns the number of character in a string 


LET 


Assign valus to variable 


LIST 


Lists specified lines or entire 
program on the screen LIST 50-100 


LINE 


Draw a line from the start point 
to end point if start point is 
omited, (128,96) or the last end 
point is used. PSET selects 
foreground color and PRESET 
select background color. ,3 
draws a box with start and end points 
as the corns rs (instead of a line). ,3F 
will fill in the box. 


LINE INPUT 


Input line from keyboard. 


LOG 


Returns natural logarithm. 


MEM 


Finds amount of free memory. 


MI D$ 


« 

Returns a substring if another 
string. If length option is 
omitted, the entire string right 
cf position is returaed. 


HID 3 


Replaces a portion of one string 
with another string. 


MO TOP 


Turns cassette ON or OFF. 
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NEW 



NEW 


Erases everything in memory. 


ON. . .GOS03 


Multi-way branch to specified subroutines 


ON . . .GOTO 


Multi-way branch to specified lines. 


OPEN 


Open file(f) at Screen or 
Keyboard (0) , Ca ssette (- 1) , 
Printer (-2) for input(I) or (0). 


PAINT 


Paints graphic screen starting 

at point (X ,Y) with specified 

color. Stops at border of specified color 


PCLEAR 


Reserves n number of graphic memory pages 


PCLS 


Clears screen with specified 
color. If color code is omitted, 
current background color is used. 


PCOPY 


Copies graphic from source to 
destination page. 


PEEK 


Returns the contents in the 
memory location you specified. 


PLAY 


Plays music of specified note 
(A-G or 1- 1 2) octave (0) , volume 
(V) note length (L), tempo (T), 
pause (P) , and allows execution 
of substrings. Also sharps (# or 
+) or flats (-) . 


PMCDE 


Selects resolution and memory 
page to start on. 


POINT 


Tests whether specified graphics 
ceil is on or off, X (horizontal) 
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=0-31. The value returned is -1 





if the cell is in the character 
mode, 0 if it is off, or the color 
code if it is on. 


POKE 


Puts values into specified 
memory location. 


POS 


Returns current cursor position. 


P? 01 NT 


Tests whether specified graphics 
cell is on ot off and returns 
color code of specified cell. 


PRESET 


Sets to background color. 


PRINT 


Prints specified message on the screen 


PRINT#- 1 


Writes data to cassette. 


PR INT#- 2 


Prints an item or list of ixems 
cn the printer. 


PRINT TAB 


Moves the cursor to specified 
column position and prints. 


PRINT USING 


Prints numbers in specified format. 
# Formans numbers. 

, Decimal point. 




, Displays comma to left 
of every third character. 
** Fills leading spaces 
with a sterisks. 

$ Places $ ahead. 
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PRINTS) 

PSET 

PUT 

READ 
REM or’ 

RSNUM 

RESET 

RESTORE 



3$ Floating dollar sign. 

Floating dollar sign 

♦ In first position, causes sign to be 
printed. In last position, causes 
sign t o be printed after the number 
Exponential format. 

Minus sign after negative numbers. 
Returns first string characer. 
!?spacssS String field; length of 

field is nember of spaces plus 2. 
Prints specified message at 
specific screen location. 

Set specified point to specified 
if C is omited, foreground color is used. 
Stores graphics from an array 7,PSET 
onto the screen. (Array ractangle 
size must match GET rectangle size.) 

Read the next item in DATA lineREAD AS and 
assign it to specified READ C,3 variable. 
Allow insertion of comment in 
progream line. Everything after 
REM is ignored by Computer. 

Allows program line renumbering. 

Erases dot SET at specified location. 

Sets the Computer’s pointer 
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back to first item on the line 



RETURN 


Returns the computer from subroutine 
to the BASIC word following 


RIGHTS 


Returns right potion of string. 


RND 


Returns a pseudo -random integer 
between one and specified number 
which must be greater than one. 


RUN 


Executes the program. 


SCREEN 


Selects ether graphics or text 
screen and color set 


SET 


Sets a dot at specified text 
screen location to specified color. 


SGN 


Returns sign of specified numeric 
expression : 

-1 for argument is negative 
0 if argument is 0 
+1if argument is positive 


SKI?? 


Skip file to end of next program on 
cassette tape, or to end of 
specified program. 


SIN 


Returns sine of angle measured in radians 


SOUND 


Sounds specified tone for 
specified duration. 


STOP 

STRING? 


Stops execution of program. 
Returns a string of characters 




(of specified length) which are 
identified by ASCII code or the 
93 



STRING? 





first character of the string. 


STRS 


Convert a numeric expression to a spring 


SQR 


Returns the sguara root of number. 


TAN 


Returns tangent of angle measured 
in radians. 


TIMER 


Returns contents or allows setting 
cf timer (0-65535) 


THOFF 


Turns off program tracer. 


TRON 


Turns on program tracer. 


OSERn 


Calls user' s machine language subroutine 


VAL 


Converts a string to number. 


VARPTR 


Returns "pointer" address for 
the specified variable. 
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